﻿Public Class LopHocBUS

    Public Function LayDanhSachLopHoc() As List(Of LopHocDTO)
        Dim lhDAO As New LopHocDAO
        Return lhDAO.LayDanhSachLopHoc()
    End Function

    Public Function ThemLopHoc(ByVal lh As LopHocDTO) As Integer
        Dim lhDAO As New LopHocDAO()
        Return lhDAO.ThemLopHoc(lh)
    End Function

    Public Function XoaLopHoc(ByVal lh As LopHocDTO) As Integer
        Dim lhDAO As New LopHocDAO
        Return lhDAO.XoaLopHoc(lh)
    End Function

    Public Function SuaLopHoc(ByVal lh As LopHocDTO) As Integer
        Dim lhDAO As New LopHocDAO
        Return lhDAO.SuaLopHoc(lh)
    End Function

    Public Function TraCuuLopHoc(ByVal lh As LopHocDTO) As List(Of LopHocDTO)
        Dim lhDAO As New LopHocDAO
        Return lhDAO.TraCuuLopHoc(lh)
    End Function
End Class
